home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byte0287.arc / POLY.BAS < prev   
BASIC Source File  |  1986-10-29  |  306b  |  17 lines
  1. 10 DIM X(50),Y(50)
  2. 20 READ N
  3. 30 FOR K=1 TO N
  4. 40 READ X(K),Y(K)
  5. 50 NEXT K
  6. 60 X(0)=X(N)
  7. 70 Y(0)=Y(N)
  8. 80 AREA=0
  9. 90 FOR K=0 TO N-1
  10. 100 AREA=AREA + X(K) * Y(K+1) - X(K+1) * Y(K)
  11. 110 NEXT K
  12. 120 AREA = .5 * ABS(AREA)
  13. 130 PRINT "Enclosed area is "; AREA
  14. 140 END
  15. 150 DATA 4
  16. 160 DATA 4,3,4,1,1,4,3,4
  17.